home *** CD-ROM | disk | FTP | other *** search
- '
- ' InfCache ╜ '96 by Duschnouk
- ' Ce programme a pour but d'analyser le Newdesk.inf pour le forcer à installer
- ' le cache si celui-ci a été omis...
- ' => Est nécessité par un bug de Stoop qui parfois l'enlève...
- ' Il faut le placer juste après le programme de boot, et le cacher de celui-ci.
- '
- ' L'endroit à modifier est le 4ème nombre de la ligne #E ; une fois converti,
- ' c'est le bit 1 qu'il faut mettre sur 1 pour activer le cache.
- '
- ' ╢ noter que d'après les tests que j'ai fait, c'est le seul paramètre
- ' "physique" du F030 qui est contenu dans le Newdesk.inf : il ne contient pas
- ' l'état du blitter (qui de toute façon est toujours branché) ni ne permet de
- ' passer en 8 ou 16Mhz...
- '
- IF EXIST("C:\NEWDESK.INF")
- DIM lignes$(1000) ! Ça devrait suffire, non &-)
- ' On charge le Newdesk.inf
- OPEN "I",#1,"C:\NEWDESK.INF"
- RECALL #1,lignes$(),-1,nblignes#
- CLOSE #1
- '
- FOR i&=0 TO nblignes#-1
- EXIT IF LEFT$(lignes$(i&),2)="#E"
- NEXT i&
- '
- IF LEFT$(lignes$(i&),2)="#E"
- ' On répare en une ligne de code :-)
- lignes$(i&)=LEFT$(lignes$(i&),12)+HEX$(BSET(VAL("$"+MID$(lignes$(i&),13,2)),1),2)+RIGHT$(lignes$(i&),LEN(lignes$(i&))-14)
- ENDIF
- '
- ' On sauvegarde
- '
- OPEN "O",#1,"C:\NEWDESK.INF"
- STORE #1,lignes$(),nblignes#
- CLOSE #1
- '
- PRINT "InfCache ╜ '96 by DuschnouK"
- PRINT "Et hop, le Newdesk est maintenant avec Cache :-)"
- ENDIF
-